Για GSM Encode χριάζεσαι αυτά για να στέλνεις Ελληνικά ΧΩΡΙΣ τόνους και όλα .ToUpper :
InputString = Replace(InputString, "Δ", Chr(16))
InputString = Replace(InputString, "Φ", Chr(18))
InputString = Replace(InputString, "Γ", Chr(19))
InputString = Replace(InputString, "Λ", Chr(20))
InputString = Replace(InputString, "Ω", Chr(21))
InputString = Replace(InputString, "Ώ", Chr(21))
InputString = Replace(InputString, "Π", Chr(22))
InputString = Replace(InputString, "Ψ", Chr(23))
InputString = Replace(InputString, "Σ", Chr(24))
InputString = Replace(InputString, "Θ", Chr(25))
InputString = Replace(InputString, "Ξ", Chr(26))
InputString = Replace(InputString, "Ώ", Chr(21))
Public Function Greek2English(ByVal ConString As String) As String
Dim IllegalChars() As Char
Dim LegalCharacs() As Char
Dim Xpos, i As Long
ConString = ConString.ToUpper
IllegalChars = "ΑΒΕΖΗΙΚΜΝΟΡΤΥΧ".ToCharArray
LegalCharacs = "ABEZHIKMNOPTYX".ToCharArray
For i = 0 To LegalCharacs.Length - 1
ConString = Replace(ConString, IllegalChars(i), LegalCharacs(i))
Next
Return ConString.ToUpper
End Function
Private Function ReplaceInvalidCharacters(ByVal ConString As String) As String
Dim XPos, i As Long
ConString = ConString.ToUpper
If IsNothing(ConString) Or ConString = "" Then ConString = " "
Dim IllegalChars() As Char = UCase("άέήίϊΐόύϋΰώ").ToCharArray
Dim LegalCharacs() As Char = "ΑΕΗΙΙΙΟΥΥΥΩ".ToCharArray
For i = 0 To LegalCharacs.Length - 1
ConString = Replace(ConString, IllegalChars(i), LegalCharacs(i))
Next
Return ConString.ToUpper
End Function
Τα άλλα είναι unicode και τα στέλνεις με pdu (udh, ud) κ.τ.λ :)