Private Sub cmdRun_Click()
Dim temp As String
Open App.Path & "\ip.bat" For Output As  1 
Print # 1 , "ipconfig /? > " & App.Path & "\ip.txt"
close # 1 
Shell (App.Path & "\ip.bat")
'я использую вот такой кусок кода
Open App.Path & "\ip.txt" For Input As  1 
While Not EOF( 1 )
Line Input # 1 , temp
If Trim(temp) <> "" Then txt = txt & Trim(temp) & vbCrLf
Wend
Close # 1 
End Sub

если так то уже не работает
Private Sub Command1_Click()
Dim temp As String, s As String
If Option1.Value = True Then
    Shell ("ipconfig /? >" & App.Path & "\ip.txt")
Else
If Option2.Value = True Then
    Shell ("ipconfig /all >" & App.Path & "\ip.txt")
    End If
    End If
Open   App.Path & "\ip.txt" For Input As # 1 
   While Not EOF( 1 )
      Line Input # 1 , temp
      If Trim(temp) <> "" Then s = s & Trim(temp) & vbCrLf
    Wend
  Close # 1 
  Text1.Text = s
 
End Sub

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Sub cmdRun_Click()
  Dim Handle As Long
  Dim temp As String
  Me.MousePointer = vbHourglass
  txt = ""
   Open App.Path & "\ip.bat" For Output As  1 
    If Option1.Value = True Then
        Print # 1 , "ipconfig /? > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /?"
   Else
    If Option2.Value = True Then
        Print # 1 , "ipconfig /all > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /all"
   Else
    If Option3.Value = True Then
        Print # 1 , "ipconfig /release " & txtad & "> " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /release"
    Else
    If Option4.Value = True Then
        Print # 1 , "ipconfig /renew " & txtad & "> " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /renew"
    Else
    If Option5.Value = True Then
        Print # 1 , "ipconfig /flushdns > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /flushdns"
    Else
    If Option6.Value = True Then
        Print # 1 , "ipconfig /registerdns > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /registerdns"
    Else
    If Option7.Value = True Then
        Print # 1 , "ipconfig /displaydns > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /displaydns"
    Else
    If Option8.Value = True Then
        Print # 1 , "ipconfig /showclassid > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /showclassid"
    Else
    If Option9.Value = True Then
        Print # 1 , "ipconfig /setclassid > " & App.Path & "\ip.txt"
        Text1.Text = "ipconfig /setclassid"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
   Close # 1 
   
  While Dir(App.Path & "\ip.bat") = ""
    DoEvents
  Wend
  ProcessID = Shell(App.Path & "\ip.bat", vbHide)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
    Do
        Call GetExitCodeProcess(hProcess, exitCode)
    DoEvents
    Loop While exitCode >  0 
    CloseHandle hProcess
  Open App.Path & "\ip.txt" For Input As  1 
  While Not EOF( 1 )
    Line Input # 1 , temp
    If Trim(temp) <> "" Then txt = txt & Trim(temp) & vbCrLf
  Wend
  Close # 1 
   Kill App.Path & "\ip.bat"
   Kill App.Path & "\ip.txt"
  Me.MousePointer = vbNormal
End Sub