帮我解决一个取IP的问题

Question

我有以下代码可以取到机器IP,但如果有多个网卡时,我应如何把他们都取出来,我用的代码如下:
    Dim strString As String, FileNo
    Dim sVar
    
    If Winsock1.LocalPort = 0 Then
        strString = "連接埠編號尚未設定！"
    Else
        strString = Winsock1.LocalPort
    End If
    
    Text1.Text = "您的主機名稱為：" & Winsock1.LocalHostName & vbCrLf
    Text1.Text = Text1.Text & "IP 位址為：" & Winsock1.LocalIP & vbCrLf
    Text1.Text = Text1.Text & "連接埠為：" & strString & vbCrLf
    Text1.Text = Text1.Text & "通訊協定為：" & IIf(Winsock1.Protocol = 0, "TCP 協定", "UDP 協定")