Private Sub Form_Load()
Text1.MaxLength = 150
Label1.Caption = Str(Text1.MaxLength)
End Sub

Private Sub Text1_Change()
Label1.Caption = Int(Text1.MaxLength) - Int(Len(Text1.Text))
End Sub

dim data as string
Open App.Path & "\config.ini" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
                           
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)

Dim data As String: data = "<BlackD Logger configuration>" & vbCrLf & _
                           "Account=0000000" & vbCrLf & _
                           "Password=0000001"
                           
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Function BarHerr() As Long
On Error Resume Next
Dim udtRect As RECT, lRet As Long, lHWND As Long
lHWND = FindWindow("Shell_TrayWnd", vbNullString)
lRet = GetWindowRect(lHWND, udtRect)
BarHerr = (udtRect.Bottom - udtRect.Top) * Screen.TwipsPerPixelY
End Function

Private Sub Form_Load()
Me.Top = Screen.Height - (Me.Height + BarHerr)
End Sub