Isto é trabalho de escola já é a segunda pergunta neste estilo esta semana???????????

na unha fica assim!!!!!!!!!!!!!!!!!!!!!

 

Dim strCalc As String
Dim pos As Integer, pos1 As Integer, pos2 As Integer, pos3 As Integer, pos4 As Integer
Dim num1 As Long, num2 As Long, num3 As Long, num4 As Long
Dim valor As Single

Dim strTemp As String
strCalc = Text1.Text
pos = InStr(1, strCalc, "/")
pos1 = InStr(1, strCalc, ")")
pos2 = InStr(1, strCalc, "*")
pos3 = InStr(pos2, strCalc, ")")
pos4 = InStr(pos3, strCalc, "/")
strTemp = Mid$(strCalc, 3, pos - 3)
num1 = CLng(strTemp)
strTemp = Mid$(strCalc, pos + 1, (pos1 - (pos + 1)))
num2 = CLng(strTemp)
strTemp = Mid$(strCalc, pos2 + 1, ((pos3 - pos2) - 1))
num3 = CLng(strTemp)
strTemp = Mid$(strCalc, pos4 + 1)
num4 = CLng(strTemp)
valor = (((num1 / num2) * num3) / num4)
Me.Print valor