Hi Friends .
Plz help me .

Dim New_Entries As String = ""
Dim Old_Entries As String = ""

If (dStyle_Updated <> "") And (dStyle_Updated <> dStyle) Then
New_Entries = "Style(" & dStyle_Updated & ")"
Old_Entries = "Style(" & dStyle & ")"
End If
If (dExteriorWalls_Updated <> "") And (dExteriorWalls_Updated.ToLower <> dExteriorWalls.ToLower) Then
New_Entries = New_Entries & "," & "ExteriorWalls(" & dExteriorWalls_Updated & ")"
Old_Entries = Old_Entries & "," & "ExteriorWalls(" & dExteriorWalls & ")"
End If



If (dExtrasComment_Updated <> "") And (dExtrasComment_Updated.ToLower <> dExtrasComment.ToLower)
Then
New_Entries = New_Entries & "," & "ExtrasComment(" & dExtrasComment_Updated & ")"
Old_Entries = Old_Entries & "," & "ExtrasComment(" & dExtrasComment & ")"
End If
If New_Entries.StartsWith(",") Then
New_Entries = New_Entries.Remove(0, 1)
End If
If Old_Entries.StartsWith(",") Then
Old_Entries = Old_Entries.Remove(0, 1)
End If
If New_Entries <> "" Then
AddColumns()
SetEXLValue(cNo_NewEntries, New_Entries)
SetEXLValue(cNo_OldEntries, Old_Entries)
SetEXLValue(cNo_DataSource, DataSource)
End If



plz tell me how i can concatenate new value with old value