Coding Cmd Button in userform

OK, I reentered it as

Private Sub CmdOrder_Click()
Worksheets("Patient").Range("B2").Value = lstName.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "C:\test.txt" & """", vbNormalFocus
  Unload Me
End Sub

It works! Thanks a million!

However, I notice the cmd window pops up, is there a way to kill it after it launches the document?