Originariamente inviato da zenplus
così può andare?

Dim indice
Dim cambio As String = "αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz"
Dim normale_maiusc(0 To 25) As String
Dim normale_min(0 To 25) As String
Dim neo(0 To 25) As String

For Asci As Long = Asc("a") To Asc("z")
normale_min(Asci) = Chr(Asci)
Next Asci

For Asci As Long = Asc("A") To Asc("Z")
normale_maiusc(Asci) = Chr(Asci)
Next (Asci)

For indice As Integer = 0 To Len(cambio)
neo(indice) = cambio(indice)
Next indice
No riuscivo a modificare il post quindi ho quotato.. comunque ho risolto così:

Dim Stringa1 As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim CharArr1() As Char = Stringa1.ToCharArray
Dim Stringa2 As String = "abcdefghijklmnopqrstuvwxyz"
Dim CharArr2() As Char = Stringa2.ToCharArray
Dim Stringa3 As String = "αβςδәғɢнιנкℓʍησρqЯsтυνω×Чz"
Dim CharArr3() As Char = Stringa3.ToCharArray