Function for check mail and read mail

Public Function mail()
Dim a As String
a = "http://www.mig33.com/sites/index.php?c=email&a=home&v=midlet"
mail = HextoAscii("02 03 9A 00 63 00 00 00 " & DecToHexStr(Len(a) + 23) & " 00 04 00 00 00 04 00 00 00 01 00 02 00 00 00 " & DecToHexStr(Len(a)) & " " & Asciitohex(a) & " 00 01 00 00 00 01 01")
End Function


Public Function NMail(Target As String, subject As String, msg As String)
Dim a As String
Dim B As String
subject = Replace(subject, " ", "%20")
msg = Replace(msg, " ", "%20")
a = "to=" & Target & "&subject=" & subject & "&message=" & msg
B = "http://www.mig33.com/midlet/member/mail_compose.php"
NMail = HextoAscii("02 03 9A 00 4B 00 00 00 " & DecToHexStr(Len(a) + Len(B) + 28) & " 00 04 00 00 00 04 00 00 00 01 00 03 00 00 00 " & DecToHexStr(Len(a)) & " " & Asciitohex(a) & " 00 02 00 00 00 " & DecToHexStr(Len(B)) & " " & Asciitohex(B) & " 00 01 00 00 00 01 02")
End Function