Function untuk Mengacak Password Dengan VB

Public Function Chip(ByVal c As String, ByVal origin As Boolean) As String
  Dim a As String, b As String, i As Byte, ctemp As String, char As String, n As Byte
  a = "inojab7cfhg34lmqrkd68epw xuvstz901y25,/."
  b = "abcdefghijklmnopqrstuvwzyz1234567890 ,./"
  c = LTrim(c)
  If origin = True Then
     ctemp = ""
     For i = 1 To Len(c)
         char = Mid(c, i, 1)
         n = InStr(1, a, char)
         ctemp = ctemp + Mid(b, n, 1)
     Next i

  Else
     ctemp = ""
     For i = 1 To Len(c)
         char = Mid(c, i, 1)
         n = InStr(1, b, char)
         ctemp = ctemp + Mid(a, n, 1)
     Next i
  End If
  chip = ctemp
End Function