Private Sub Command1_Click()
Dim sRun As String
sRun = "C:\WINDOWS\system32\nbtstat.exe –A " & Text1.Text
Shell sRun
End Sub

כדי להשתמש בנבטסטט עושים התחל הפעלה:

nbtstat –A ipaddress 

אי לכך, ולפי הבנתי, התוכנה משתמשת בפונקציות API מובנות, שיש אותן בכל מערכת הפעלה, תחת הפלטפורמה Win32 (שזה 95/98/2000/Me/XP וכו'...)

לכן, במקום להשתמש בתוכנית המוכנה, שעובדת תחת ה"דוס", אתה יכול לבנות תוכנית שמשתמשת באותן פונקציות שבהן משתמשת התוכנה, וכך גם לחסוך, וגם לייעל...

בכל מקרה, לפי מה שכתבת, זה נראה נכון
* שים לב, שאתה צריך לכתוב בתיבת טקסט, IP שהוא מחרוזת של 4 בתים (char או byte, כלומר מ-0 עד 255), שמופרדים בנקודות, לדוגמה:
10.0.0.1