what is the best code for this

[nokmaster]

hi, please take a look at my code:

Private Sub cmdSend_Click()
StatusBar1.Panels(1).Text = "Sending..."
Dim sms As Integer
      sms = FreeFile
      Open App.Path & "\sms.bat" For Output As #sms
      Print #sms, "easyload.exe" & " " & "--sendsms " & " " & txtPhonenumber.Text
Close #sms
'Shell
ShellAndWait (App.Path & "\WINDOWS\sms.bat"), vbHide
StatusBar1.Panels(1).Text = "Sent"
pause (2000)
StatusBar1.Panels(1).Text = "Done."
End Sub

what is the best code aside from my code? i dont want to use anymore the .bat is there another way?