[VB.net]Eccezione non gestita

[chibi89]

Come da immagine come posso risolvere l'inconveniente dell'eccezione che si genera nei softkey.text?
Nell'immagine qua affianco vedete come replicare il form nel caso voleste provare 71384752_748888405586585_3229851145014870016_n.png

 Private Sub GetKey_Click(sender As Object, e As EventArgs) Handles GetKey.Click       
 If ((SoftKey1.Text.Length = 5) And (SoftKey2.Text.Length = 5) And
            (SoftKey3.Text.Length = 5) And (SoftKey4.Text.Length = 5) And
            (SoftKey5.Text.Length = 5) And SoftKeyUser.Text.Length >= 1) = V Then
            LocalUser = SoftKeyUser
            KeyUser =
                SoftKey1.Text And SoftKey2.Text And
                SoftKey3.Text And SoftKey4.Text And
                SoftKey5.Text
            MsgBox("Eseguo verifica della key inserita con il server locale delle licenze", stileinformation, "Newspoint Software Home Center")
            For Each ControlloKey As String In IO.File.ReadAllLines(Application.StartupPath = "LicenseKey.inf")
                If ControlloKey.Contains("Key= ") Or ControlloKey.Contains("Key2= ") Then
                    If ((KeyUser = Mid(ControlloKey, 5)) Or (KeyUser = Mid(ControlloKey, 6))) Then
                        MsgBox("Key registrata con successo", stileinformation, "Newspoint Software Home Center")
                        SistemaKey.Default.Save()
                        SistemaKey.Default.Reload()
                        user.Text = LocalUser
                        key.Text = KeyUser
                    Else
                        MsgBox("La chiave inserita non è stata trovata nel dataSet", stileinformation, "Newspoint Software Home Center")
                    End If
                Else
                End If
            Next
        Else
            MsgBox("impossibile aggiornare la licenza")
        End If
    End Sub