strKelime = strKelime1
If (strKelime1 <> "" AND strKelime2 <> "") Then
strKelime = strKelime1 & ", " & strKelime2
End If

Böyle bir dene istersen, doğru anlamışımdır umarım.