Regex正则表达式--合法数字

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '1.3 GB
        '1.3gb
        '1gb
        Console.WriteLine("Pleasen input your entry:")
        Dim str As String = TextBox1.Text
        Dim str1 As String = str.Substring(str.Length - 2, 2)
        If str1.ToUpper = "TB" Or str1.ToUpper = "GB" Or str1.ToUpper = "MB" Then
            Dim str2 As String = str.Remove(str.Length - 2)
            Dim str3 As String = str.Substring(str2.Length - 1, 1)
            If str3 = " " Then
                Dim str4 As String = str.Remove(str.Length - 3)

                If Regex.IsMatch(str4, "^\d*[.]?\d*$") Then
                    MsgBox("valid input")
                Else
                    MsgBox("follow the format like: 1 TB or 1.1 TB, 1 GB, 10 MB")