مشکل این کد چیست؟ آخرین رشته نمایش داده نمی شود

سلام به همگی
لطفا این کد را نگاه کنید چرا توی msgbox آخرین رشته نمایش داده نمی شود؟
ممنون میشم کمک کنید

کد:

---

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim CnstDB As String

CnstDB = Space(128)
GetPrivateProfileString "program", "bank", "main_bank", CnstDB, Len(CnstDB), App.Path & "\" & "Config.ini"
MsgBox "DATABASE=" & CnstDB & "SERVER="

End Sub

---

سلام.
این کد رو بعد از ای پی آی اضافه کن.

کد:

---

CnstDB = Left(CnstDB, InStr(1, CnstDB, vbNullChar) - 1)

---

دست شما درد نکنه تشکر

آقا پیمان سلام باید ببخشید دوباره مزاحم شدم کدی که به من دادید خوب کار می کنه اما من هنوز یک مشکلی دیگه ای هم دارم اگه میشه لطف کنید و اینم جواب بدین ممنون میشم
من می خوام توسط تابع SQLConfigDataSource یک DSN بسازم اما وقتی اون متغییر ها را می گذارم نتیجه نمی گیرم
این کدی هست که من استفاده می کنم:

کد:

---

Public Const ODBC_ADD_DSN = 1
      Public Const ODBC_CONFIG_DSN = 2
      Public Const ODBC_REMOVE_DSN = 3
      Public Const vbAPINull As Long = 0

      #If Win32 Then

          Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
          (ByVal hwndParent As Long, ByVal fRequest As Long, _
          ByVal lpszDriver As String, ByVal lpszAttributes As String) _
          As Long
      #Else
          Public Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
          (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
          lpszDriver As String, ByVal lpszAttributes As String) As Integer
      #End If

---

کد:

---

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Dim CnstDB As String
Dim sName As String

Private Sub Command1_Click()
CnstDB = Space(128)
sName = Space(128)

GetPrivateProfileString "Shahrnegar", "BankName", "main_bank", CnstDB, Len(CnstDB), App.Path & "\" & "Config.ini"
GetPrivateProfileString "Shahrnegar", "ServerPath", "(local)", sName, Len(sName), App.Path & "\" & "Config.ini"
CnstDB = Left(CnstDB, InStr(1, CnstDB, vbNullChar) - 1)

Debug.Print "DSN=MyODBC" & Chr$(0) & "DATABASE=" & CnstDB & Chr$(0) & "SERVER=" & sName
SQLConfigDataSource vbAPINull, ODBC_ADD_DSN, "SQL Server", "DSN=MyODBC" & Chr$(0) & "DATABASE=" & CnstDB & Chr$(0) & "SERVER=" & sName
End Sub

---

کسی نیست جواب این سوالو بدونه لطفا کمک کنید

اهان راستی دوستان این مشکلو منم پیدا کردم واقعا برام سوال پیش اومده اگه کسی راه حلی داره بی زحمت بذارید که دوستمون هم از این فلاکت در بیاد......
با تشکر