BASIC to VBA

[lgroulx2000]

Hi,
How do I convert this BASIC code to VBA for output to cell A1?

46 CC$ = "######### ######### ########## ######## LBS INCHES SQUARED"
964 LPRINT USING CC$;A*IX,A*IY,A*IZ,A*IIXZ

 

[shg]

That's a pretty context-free question.

Sub x()
    Dim A           As Double
    Dim IX          As Long
    Dim iY          As Long
    Dim iZ          As Long
    Dim iIXZ        As Long
    Range("A1").Value = Format(A * IX, "0 ") & _
                        Format(A * iY, "0 ") & _
                        Format(A * iZ, "0 ") & _
                        Format(A * iIXZ, "0 ") & _
                        " LBS INCHES SQUARED"
End Sub