^Dim i As Single Dim Res As String For i = 0 To 1.1 Step 0.02 Res = Res & CStr(i) & "->" & CStr(CInt(i * 2) / 2) & vbNewLine Next i Call MsgBox(Res)