求助：怎样逐行读取TXT文件，并把一部份分别添加到combo中？

有一个txt文件，格式如一：
wang123,wang123456
wang124,wang123456
wang125,wang12456
…………
现在想把这个文件中的每行读出来，并把每一行,号前面的放到combo中，小弟求源码 --------------------编程问答-------------------- filesystemobject可以帮助读文件

然后split函数帮你拆字符串

自己查找相关代码就好了 --------------------编程问答-------------------- 求代码啊，，两部分都会一点
不会组合

--------------------编程问答-------------------- 我只会读取整行后加到combo中，现在想把每一行的“,”之前的部份加到combo中
Open "c:\username.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, str '按行读取
    Combo1.AddItem str
Loop
Close #1 --------------------编程问答-------------------- Open "c:\username.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, str '按行读取
    aa = Split(str, ",")
    Combo1.AddItem aa(0)
    ReDim aa(0 To 1)
    aa = ""
Loop
Close #1
这个代码不对，哪位指导一下

补充：VB ,  基础类