Visual Basic 2008 - Netzwerkkontrolle

Option Explicit On
Imports System.IO
Public Class Form1
    Dim fs As FileStream
    Dim sw As StreamWriter
    Dim netstat As Boolean
    Dim istat As Boolean
    Dim dateiname As String = "C:\Logfile.txt"  

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = My.Computer.Clock.LocalTime
        '-----------------------------------------------------  
        If My.Computer.Network.Ping("IP_DES_SERVERS") = True Then  
            Label2.Text = "Netzwerkverbindung: Aktiv"  
                Try
                    fs = New FileStream(dateiname, FileMode.Append)
                    sw = New StreamWriter(fs)
                    sw.WriteLine(Label2.Text & "  " & My.Computer.Clock.LocalTime & " " & My.User.Name & " " & My.Computer.Name)  
                    sw.Close()

                Catch ex As IOException
                    MsgBox(ex.Message)
                End Try
            End If

        Else
            Label2.Text = "Netzwerkverbindung: Inaktiv"  
            Try
                    fs = New FileStream(dateiname, FileMode.Append)
                    sw = New StreamWriter(fs)
                    sw.WriteLine(Label2.Text & " " & My.Computer.Clock.LocalTime & " " & My.User.Name & " " & My.Computer.Name)  
                    sw.Close()
            Catch ex As IOException
                MsgBox(ex.Message)
            End Try
        End If
        '-----------------------------------------------------  
        Label3.Text = My.User.Name
        '-----------------------------------------------------  
        Label4.Text = My.Computer.Name
        '-----------------------------------------------------  
        If My.Computer.Network.Ping("IP_DER_FIREWALL") = True Then  
            Label5.Text = "Internet   Connected"  
            istat = True
            Try
                    fs = New FileStream(dateiname, FileMode.Append)
                    sw = New StreamWriter(fs)
                    sw.WriteLine(Label5.Text & " " & My.Computer.Clock.LocalTime & " " & My.User.Name & " " & My.Computer.Name)  
                    sw.Close()

            Catch ex As IOException
                MsgBox(ex.Message)
            End Try
        Else
            Label5.Text = "Internet   Disconnected"  
            istat = False
            Try
                    fs = New FileStream(dateiname, FileMode.Append)
                    sw = New StreamWriter(fs)
                    sw.WriteLine(Label5.Text & " " & My.Computer.Clock.LocalTime & " " & My.User.Name & " " & My.Computer.Name)  
                    sw.Close()
            Catch ex As IOException
                MsgBox(ex.Message)
            End Try
        End If
    End Sub