catch formatexception error

Hello everybody,


I want to know how I can catch a formatexception. Cause for some computers in this code (which are not on the network), I receive a system.formatexception. I've been trying to catch this exception but it always returns :(

Has anyone any clue about this ?

Thanks in advance,

Bjorn

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strComputers(50, 1) As String
        Dim i As Byte

        strComputers(0, 0) = "BEQDENDEN1WS037"
        strComputers(0, 1) = "beq03029"
        strComputers(1, 0) = "beqdenden1ws042"
        strComputers(1, 1) = "beq03039"
        strComputers(2, 0) = "BEQDENDEN1WS047"
        strComputers(2, 1) = "beq03031"
        strComputers(3, 0) = "BEQDENDEN1WS048"
        strComputers(3, 1) = "beq02971"
        strComputers(4, 0) = "BEQDENDEN1WS052"
        strComputers(4, 1) = "beq02973"
        strComputers(5, 0) = "BEQDENDEN1WS056"
        strComputers(5, 1) = "beq02965"
        strComputers(6, 0) = "BEQDENDEN1WS061"
        strComputers(6, 1) = "beq03014"

        '        MsgBox(strComputers.Length)


        For i = 0 To strComputers.GetUpperBound(0)

            If strComputers(i, 0) <> "" Then
                Try  ' Set up structured error handling.

                    Dim strHostName As IPHostEntry = Dns.GetHostByName(strComputers(i, 0))
                    MsgBox(strHostName.HostName())

                    MsgBox(strComputers(i, 0) & " : " & strComputers(i, 1))
                    Shell("net use z: \\" & strComputers(i, 0) & "\c$", AppWinStyle.MaximizedFocus, True)
                    If Directory.Exists("z:\") Then
                        If Directory.Exists("e:\users\" & strComputers(i, 1) & "\Application_Data") Then
                            Directory.Delete("e:\users\" & strComputers(i, 1) & "\Application_Data", True)
                        End If
                        Shell("xcopy z:\application_data e:\users\" & strComputers(i, 1) & "\Application_Data /s /e /C /I /Y", AppWinStyle.NormalFocus, True)
                        Shell("net use z: /d", , True)
                    End If

                Catch ex As System.FormatException
                    MsgBox(strComputers(i, 0) & " not online !")
                    'Catch exc As System.FormatException  ' Catch the error.
                    '    MsgBox(strComputers(i, 0) & " not online !")  ' Show friendly error message.
                    'Catch ex As Exception
                    '    MsgBox(strComputers(i, 0) & " not online !")  ' Show friendly error message.
                End Try
            End If
        Next

        MsgBox("the end")

    End Sub

---