Ok, got it... put a sleep statement right after it posts a letter and it fixed the problem. Now it looks like this...

Code:
Private Function SendTxt(ByVal Handle As Long, ByVal sText As String) As Boolean
    Dim i As Integer
    Dim lngReturn As Long
    For i = 1 To Len(sText)
        lngReturn = PostMessage(Handle, WM_CHAR, Asc(Mid$(sText, i, 1)), 0&)
        Sleep 25
        If lngReturn <> 1 Then Exit Function ' failed
    Next i
    SendTxt = True ' passed
End Function