Записать название ОС и IP-адрес компьютера в файл

Dim mip As String
Dim Web As New System.Net.WebClient
Dim Str, Result As String
Str = Web.DownloadString("http://www.getip.com/")
Web.Dispose()
Result = Pars(Str, ("<em>"), ("</em>"))
mip = Result
My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\папочка с добром\IP.txt", mip)

Dim osVersion As String = System.Environment.OSVersion.ToString()

    Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        Dim iPos As Integer, iEnd As Integer
        Dim strResult As String
        iPos = strSource.IndexOf(strStart, 0)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        Return strResult
    End Function

Imports System.Net
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim hostName As String = Dns.GetHostName()
        Dim ihe As IPHostEntry = Dns.GetHostEntry(hostName)
        ComboBox1.Items.AddRange(ihe.AddressList)
    End Sub
End Class