All pastes #293934 Raw Edit

Untitled

public text v1 · immutable
#293934 ·published 2006-12-28 00:58 UTC
rendered paste body
Private Sub Text1_Change()
    On Error Resume Next
    Dim rst As Integer
    rst = Text1.Text / 2 * 0.0074 / 0.8
    Text2.Text = rst
End Sub