Need Code Translated to Basic

[mrstuff68]

I have the following macro in MS Excel, i need it translated into Basic so that i can run the same macro on Open Office.

Can anyone help.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Dim Msg, Style, Title, Response
Msg = "Do you want to update YTD?"
Style = vbYesNo + vbQuestion
Title = "Earnings"
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then
Exit Sub
Else
[d2].Formula = [d2].Value + [c2].Value
End If
End If
End Sub