shell command use

[=?Utf-8?B?ZXAu?=]

The following prog does start the app, except the two statements:
AppActivate(Pro cID)
SendKeys.SendWa it("username")
cause some kind of unspecified error where I'm supposed to send an error
report to microsoft. Is this the correct prog? Could you pls suggest a fix?
thx.,
ep.
---------------------------------------------------------------------------------------
Imports Microsoft.Visua lBasic
Imports System.Windows. Forms

Module Module1

Sub Main()
Dim ProcID As Integer
ProcID = Shell("c:\mydir \SYSAPP.EXE", AppWinStyle.Nor malFocus)
AppActivate(Pro cID)
SendKeys.SendWa it("username")
End Sub
End Module