Option Explicit

Private P(9) As String

Private Sub Form_Load()
Dim i As Integer, j As Integer, pNot As Boolean, pTemp As String
'随机生成一组不重复的字母
Randomize
    For i = 0 To 9
        pNot = True
        pTemp = Chr(65 + Int(Rnd() * 26))
        For j = 0 To i
            If P(j) = pTemp Then pNot = False
        Next
        If pNot Then
            P(i) = pTemp
        Else
            i = i - 1
        End If
    Next

'获取结果
    MsgBox "输入[1234567890]，获得：" & GetKey(1234567890)
End Sub

Private Function GetKey(ByVal vS As String) As String
'简单的字母提取方式
Dim i As Integer
    For i = 1 To Len(CStr(vS))
        GetKey = GetKey & P(Mid(vS, i, 1))
    Next
End Function

多谢楼上的了