Формат числа в ListBox

[ольгаг]

Здравствуйте Уважаемые программисты!
Код ниже (vba excel 2003) изменяет формат отображения числа в ListBox-е: число "1500,20" отображается как "1500,2". Но если вводится целое число, например, "1500" то оно отображается как "1500,". Подскажите пожалуйста как можно скрыть отображение запятой, если число целое?

With Me.ListBox       
For i = .ListCount - 1 To 0 Step -1          
.List(i, 0) = (Format(.List(i, 0), "0.##"))       
Next i 
End With

Спасибо!

[SAS888]

Может так устроит:

.List(i, 0) = --.List(i, 0)