Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click  'Ini lesen
        Dim sTemp As String = Space(1024)
        Try
            ReadIni("aktuelle_Datenbank", "db_name", "", sTemp, 1024, _
              Application.StartupPath & "\config.ini")
            TextBox1.Text = (sTemp)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

mit freundlichen Grüßen
Sven