Option Explicit
Sub MSG_mehrsprachig()
Dim Antwort
Dim Sprache As Integer
Dim msgText() As String
ReDim msgText(1, 1 To 3, 1 To 2)
msgText(1, 1, 1) = "Text auf Englisch": msgText(1, 1, 2) = "Titel auf Englisch"
msgText(1, 2, 1) = "Text auf Deutsch": msgText(1, 2, 2) = "Titel auf Deutsch"
msgText(1, 3, 1) = "Text auf Russisch": msgText(1, 3, 2) = "Titel auf Russisch"
Sprache = Range("LanguageChoice")
Antwort = MsgBox(msgText(1, Sprache, 1), vbYesNoCancel, msgText(1, Sprache, 2))
If Antwort = vbNo Or Antwort = vbCancel Then Exit Sub
MsgBox "Ja gedrückt"
End Sub