Verzweigung in eine externe Textdatei möglich ?

Auf Modulebene
Du kannst die Textdatei öffnen

Option explicit

Public Wert

Public Sub TxtZeileLesen()
Dim TxtDatei$, sstrZeile$
Dim DateiNr

DateiNr = FreeFile

TxtDatei$ = UCase("C:\textdatei.txt")

Open TxtDatei$ For Input As #1
While Not EOF(1)
Line Input #1, sstrZeile$
sstrZeile$ = Trim(sstrZeile$)
'Zahl der Textdatei(50) der Variablen(Wert) übergeben
Wert = sstrZeile$ 'Wert ist jetzt 50
Wend
Close #1

End Sub

Jetzt kannst Du mit entsprechenden Code bestimmen daß:
B1 = A1 + Wert ist.
Bedenke daß Zahl in A1 und in Wert gleichen Typs sein müßen.
Wert sollte mit CInt oder CLng konvertiert werden.