อยากได้โค๊ดเช็คข้อมูลใน textbox คือระบบของผม มันมีให้ใส่ขนาดวัสดุ กว้าง ยาว

    Private Function myFormat(ByVal x As String) As String
        If x = "" Then x = "0"
        If Not IsNumeric(x) Then x = "0"
        Dim x2 As Double = CDbl(x)
        Dim x3 As String = ""
        Return x2.ToString("#.#0")
    End Function