me again Hmm.. here is a much more portable way to implement this code, using a function i made: Module Module1 Sub Main() Dim amtDue(1) As Double amtDue(0) = 1234.56 amtDue(1) = 843.76 Console.WriteLine(PadAmt(amtDue(0))) Console.WriteLine(PadAmt(amtDue(1))) Console.ReadLine() End Sub Function PadAmt(ByVal amt As Double) Dim mystring As String mystring = Format(amt, "n") Return "$" & mystring.PadLeft(8, " ") End Function End Module again, this will display EXACTLY what you wanted, as in my other reply. Please lemme know how it goes, thx. Jordan. III
