Looping until an empty cell

Hello
I have a macro in which i am taking information from one cell and puting it in to a text box but need to repeat this process from B1 to C1 to D1 etc here is what I have so far

Dim shpTextBox As Shape
        
Set shpTextBox = Sheet3.Shapes("Text Box 1")
shpTextBox.TextFrame.Characters.Text = Sheet2.Range("B1").Value
 
End Sub