Code:
Public Class Form1


    Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click

        Dim strCode As String
        Dim myobj As Object, program

        myobj = CreateObject("wscript.shell")
        myobj = myobj.exec("cmd /c c:\myDosProgram.exe")  'your shell command
        Do
            With myobj
                With .StdOut
                    If Not .AtEndOfStream Then
                        strCode = .readall()
                    End If
                End With
            End With
            'DoEvents()
        Loop While myobj.Status = "WshRunning"
        myobj = Nothing

    End Sub
End Class

Conversion from string "WshRunning" to type 'Double' is not valid.

anyone got any idea what i should do to my codes to make it works ?