For n As Integer = 0 To pos head = head & "0" Next End If Dim num As Integer = Convert.ToInt32(start) + rate

If szero Then result = String.Concat(prefix, head, num.ToString()) If result.Length > leg Then If head.Length > 1 Then result = String.Concat(prefix, head.Remove(1, result.Length - leg), num.ToString()) Else result = String.Concat(prefix, num.ToString()) End If End If Else result = String.Concat(prefix, num.ToString()) End If Return result