Dim m As Integer
        Dim empty As Integer
        For Each o As Control In Me.Controls

            If TypeOf o Is TextBox Then
                If o.Text = "" Then
                    empty = (Controls.OfType(Of TextBox)().Count(Function(t) t.TextLength = 0))

                ElseIf o.Text <= 0 Then
                    m = (Controls.OfType(Of TextBox).Count(Function(t) t.Text <= 0))
                End If
            End If

        Next

        If empty Then
            empty = MsgBox(empty & "個空白です")
        ElseIf m Then
            m = MsgBox(m & "個正しく入力してください")
        End If
    End Sub


1つめのテキストボックスにマイナスの値を入れて、ボタンを押すと
 m = (Controls.OfType(Of TextBox).Count(Function(t) t.Text <= 0))
のところで下記エラーが出ます

System.InvalidCastException: 'String "" から型 'Double' への変換は無効です。'

エラーがでなくなる方法を教えてください(テキストボックスの変数はDoubleで宣言しています)