One More Problem !! Urgent -

You guy help me out on this code early but I forgot to say text2 is a multiline textbox but my code will only save the first line and load the first.

Option Explicit


Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
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 strFileName
CommonDialog1.ShowSave
Dim lngResult As Long
strFileName = CommonDialog1.FileName
lngResult = WritePrivateProfileString("My Text", "Text 1", Text1.Text, strFileName)
lngResult = WritePrivateProfileString("My Text", "Text 2", Text2.Text, strFileName)
lngResult = WritePrivateProfileString("My Text", "Text 3", Text3.Text, strFileName)

End Sub

Private Sub Command2_Click()
Dim strFileName
CommonDialog1.ShowOpen
Dim lngResult As Long
Dim strResult As String * 50
strFileName = CommonDialog1.FileName
lngResult = GetPrivateProfileString("My Text", "Text 1", strFileName, strResult, Len(strResult), strFileName)
Text1.Text = strResult
lngResult = GetPrivateProfileString("My Text", "Text 2", strFileName, strResult, Len(strResult), strFileName)
Text2.Text = strResult
lngResult = GetPrivateProfileString("My Text", "Text 3", strFileName, strResult, Len(strResult), strFileName)
Text3.Text = strResult

End Sub