Mailadressen über Inputbox

Sub Mail()
Dim empf As String
empf = InputBox("Adresse eingeben:")
If empf = "1" Then empf = "abc@de.de"
If empf = "2" Then empf = "def@de.de"
adr = Split(empf, ",", -1, 1) ' sortiert die Eingaben untereinander
For i = 0 To UBound(adr)
Debug.Print adr(i)
Next
End Sub

Wenn ich nur einen Empfänger eingebe(1 oder 2) läuft das alles tatellos. Gebe ich in der Inputbox beide Empfänger mit Koma getrennt ein( 1,2) bekomme ich auch nur 1 und 2 zwei als Wert. Wie bekomme ich es nun hin, daß beide Empfängeradressen in der Variablen stehen?
Gruß, Stefan