una cadena dentro de otra

[obravista]

Private Sub Command1_Click()
Dim str_temp As String
Dim SegundaCadena As String
Dim Com As String

Com = """"

SegundaCadena = "Texto de la segunda cadena"
str_temp = "esto es una prueba " & Com & SegundaCadena & Com & " con una cadena dentro de otra"
Label1.Caption = str_temp

'Resultado
'esto es una prueba "Texto de la segunda cadena" con una cadena dentro de otra
End Sub

¿ es esto lo que quieres