Så här ser min lista ut:
<code>
AF =AFGHANISTAN
AL =ALBANIA
DZ =ALGERIA
AS =AMERICAN SAMOA
AD =ANDORRA
AO =ANGOLA
AI =ANGUILLA
</code>
Det jag ville göra var att splitta vid "=" och få landet först, därefte förkortningen:
<code>
Dim f As Integer, i As Integer
Dim FileName As String, FilNamn As Variant, TestStr As String

FileName = App.Path & "\doc\Landskoder.txt"

f = FreeFile
i = 0
If Dir(FileName) <> "" Then
Open FileName For Input As f
Do While Not EOF(f)
' On Error Resume Next
Line Input #f, TestStr
FilNamn = Split(TestStr, "=")
' MsgBox FilNamn(0) & vbTab & FilNamn(1)
frMultiLanguage.Combo3.AddItem FilNamn(0) & vbTab & FilNamn(1)
Loop
Close f
End If
</code>
Error:
Runtime error '9'
Subscript out of range.
Om jag tittar på det via msgbox så är det inga problem.
Några tips hur jag kommer förbi detta?

Har du testat med:
<code>
Dim FileNo As Integer
Dim Values() As String
Dim FileName As String, strLine As String

FileName = App.Path & "\doc\Landskoder.txt"
If Len(Dir(FileName)) Then
FileNo = FreeFile()
Open FileName For Input As FileNo
Do Until EOF(FileNo)
Line Input #FileNo, strLine
If InStr(strLine, "=") Then
Values = Split(TestStr, "=")
frMultiLanguage.Combo3.AddItem Trim(Values(0)) & vbTab & Trim(Values(1))
End If
Loop
Close FileNo
End If
</code>

Tack Andreas, nu blev det bra.