Once again, thank you to you all, so far I have booked marked ASCLL link you guy's have posted, great learning from that
After Debugging, pasted all numbers to excel so that i can go through ASCLL table and check what the result should be
Going to go through the rest of the strings but the first string seems to be solved based on the ASCLL table
Code:
Dim ln() As String, sln As String, strFN As String, iln As Integer
ln = Split(strMailMessage, vbCrLf)
For iln = 0 To UBound(ln)
If InStr(1, ln(iln), "Last Name:") > 0 Then
sln = Mid(ln(iln + 2), 1) & vbCrLf & vbCrLf
Exit For
End If
Next iln
Me.txtName = "" ' Clear Text Box Data
Me.txtName = sct & " " & sfn & " " & sln ' Should Be >> Title FirstName LastName
Me.txtName = Replace(Replace(Me.txtName, Chr(13) & Chr(10), ""), Chr(9), "") ' Is >> Now Title FirstName LastName
For i = 1 To Len(Me.txtName)
Debug.Print Asc((Mid(Me.txtName, i, 1)))
Next i
Thanks again, will mark resolved once i get through the rest of the code