解説
Integer型の値をStringに変換と同時に左側へ0を連結します。
その後、右側より指定桁数を抜き取ります。
String.Format()などでも可能かと思います。
'テストデータ
Dim Arr() As Integer = {1, 12, 123, 1234, 12345}
Dim buf As String
For Each i In Arr
buf = Strings.Right("00000" & i.ToString, 5)
Console.WriteLine(buf)
Next