Something

    Public Sub LoadConfig()

        Dim strValue, strSetting, strVar, strValifier, strDelim
        Dim intPos, intSize
        strValifier = "="
        strDelim = ";"

        FileOpen(1, ConfigPath, OpenMode.Input)



        Do While Not EOF(1)
            strSetting = LineInput(1)

            If InStr(1, strSetting, ":") Then strValifier = ":"
            If InStr(1, strSetting, "=") Then strValifier = "="
            If InStr(1, strSetting, "#") Then GoTo NextInLoop
            'If InStr(1, strSetting, vbCrLf) Then GoTo NextInLoop

            intPos = InStr(1, strSetting, "=") Or InStr(1, strSetting, ":")
            intSize = Len(strSetting) - intPos

            strValue = Mid(strSetting, intPos + 1, intSize)
            strValue = Trim(strValue)

            strVar = Mid(strSetting, 1, intPos - 1)
            strVar = Trim(strVar)

            Debug.Print(vbCrLf)

            frmMain.lstSettings.Items.Add(strVar & strValifier & strValue)
            'If strVar = "txtOne" Then frmMain.txtOne.Text = strValue
NextInLoop:
        Loop

        FileClose(1)
    End Sub