HEY CAN any one H E L P WITH THIS CODE b4a(Basic4Android)?

i try vb6 to b4a

but i am not an expert to convert this

in vb 6.0

`A_Value = Val(FirstWTxt.Text) B_Value = Val(SecoundWTxt.Text)

First_StepValue = Round(B_Value - A_Value, 6)

Secound_StepValue = Round(7340 + First_StepValue, 6)

Thrid_StepValue = Mid$(Secound_StepValue, 5, 4)

Four_StepValue = Thrid_StepValue - 9250`

==================================to b4a=====here is my try!!!!========== Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules.

End Sub

Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module.

Dim Btnaction As Button

Dim etextr2 As EditText

Dim labelr1 As Label

Dim lblnumber1 As Double

Dim lblnumber2 As Double

Dim qwerty As Double

Dim asdfg As Double

Dim zxcvb As Double

Dim qazwsx As Double

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

'Activity.LoadLayout("Layout1")

Activity.LoadLayout("main")

new

End Sub

Sub new

lblnumber1=""

lblnumber2=""

qwerty = Round2 (lblnumber2-lblnumber1, 4)

new1

End Sub

Sub new1

asdfg=Round2 (740+qwerty,4)

new2

End Sub

Sub new2

zxcvb=asdfg .substring2 (4,4)

new3

End Sub

Sub new3

qazwsx=Round2 (zxcvb -9250,5)

End Sub

Sub labelr1

labelr1 = qazwsx

End Sub

Sub etextr2

etextr2 = qazwsx

End Sub