Conversion from string "" to type 'Double' is not valid

سلام دوست عزیز
راه های زیادی هست

چک کردن اینکه ایا ورودی یک عدد هست یا خیر:

If IsNumeric(txttext.Text) Then
            If txttext.Text Mod 2 = 0 Then
                MsgBox("hast")
            Else
                MsgBox("Nist")
            End If
        End If

هندل کردن خطا با try...catch:

Try
            If txttext.Text Mod 2 = 0 Then
                MsgBox("hast")
            Else
                MsgBox("Nist")
            End If
        Catch ex As Exception
            'MsgBox("invalid format")
        End Try

هندل کردن خطا با On error go to:

On Error GoTo Errorhandler
        If txttext.Text Mod 2 = 0 Then
            MsgBox("hast")
        Else
            MsgBox("Nist")
        End If
Errorhandler:
        'Do nothing

در اینجا بهتره از کداول استفاده کنی.