Converting a number to a cell string?

Hello,
Can someone help me concatenate a number to a string that identifies a cell. Please view below:

Dim xxx as string
Dim TopRow as integer


TopRow = 1

xxx = "B" & (TopRow + 5)
xxx = Chr(34) & xxx & ":B10"

Range(xxx)
'Range("xxx:B10")
'Range("B6:B10")

Thank you so much for your help!
RN