hi guys, having abit of trouble loading up 3 collums in my listview, reading from a txt file. here is my code

Public Sub LoadServer()
Dim strServer As String
Open App.Path & "\ServerList.txt" For Input As #1
While Not EOF(1)
Input #1, strServer
sCon.sErver.ListItems.Add(, , Left$(strServer, InStr(strServer, ":") - 1), , 2).ListSubItems.Add = Split(strServer, ":")(1)
Wend
Close #1
End Sub

now this reads my txt file wich looks like this

irc.mindspring.com:6667
irc.koach.com:6667
irc.bork.uk.quakenet.org:6667
irc.chatcore.org:6667

it places this line in seprate collums, but what my question is, how could i add stuff to a 3rd collum, lets just say my txtfile line looked like this

irc.mindspring.com:6667-username

i can manage to split the irc server and the port into seprate collums, how would i add the "username" to another collum... thanks very much guys