Code:
Dim loud As Integer
If Integer.TryParse(TextBox1.Text, loud) Then
    Debug.WriteLine(loud.ToString("0000"))
Else
    Debug.WriteLine("Invalid number")
End If