Imports System
 
Public Class Test
	Public Shared Sub Main()
		Console.WriteLine(ZeroPad("01234",10))
		Console.WriteLine(ZeroPad("5678", 6))
		Console.WriteLine(ZeroPad("Hello World", 20))
	End Sub
 
	Friend Shared Function ZeroPad(ByVal Number As String, ByVal ToLength As Integer)
		Dim newValue As Integer
 
		If Int32.TryParse(Number, newValue) Then
		    Return newValue.ToString(new String("0", ToLength))
		Else
			Return Number
		End If
	End Function
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlDb25zb2xlLldyaXRlTGluZShaZXJvUGFkKCIwMTIzNCIsMTApKQoJCUNvbnNvbGUuV3JpdGVMaW5lKFplcm9QYWQoIjU2NzgiLCA2KSkKCQlDb25zb2xlLldyaXRlTGluZShaZXJvUGFkKCJIZWxsbyBXb3JsZCIsIDIwKSkKCUVuZCBTdWIKCQoJRnJpZW5kIFNoYXJlZCBGdW5jdGlvbiBaZXJvUGFkKEJ5VmFsIE51bWJlciBBcyBTdHJpbmcsIEJ5VmFsIFRvTGVuZ3RoIEFzIEludGVnZXIpCgkJRGltIG5ld1ZhbHVlIEFzIEludGVnZXIKCQkKCQlJZiBJbnQzMi5UcnlQYXJzZShOdW1iZXIsIG5ld1ZhbHVlKSBUaGVuCgkJICAgIFJldHVybiBuZXdWYWx1ZS5Ub1N0cmluZyhuZXcgU3RyaW5nKCIwIiwgVG9MZW5ndGgpKQoJCUVsc2UKCQkJUmV0dXJuIE51bWJlcgoJCUVuZCBJZgoJRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcw==