Sub ループuntil()
　Dim g As Long
　 g = 3
　Do Until Cells(g, 2) = ""
　Cells(g, 6) = Cells(g, 2) + Cells(g, 3) * 10
　g = g + 1
　
　Loop Dim ms As String
　ms = MsgBox(g & "回ループ", vbYesNo, "どうやら")

　If ms = vbYes Then
　MsgBox "更に練習", vbYesonly, "じゃあ" 　　Else
　MsgBox "論外", vbYesonly, "てめーは" 　　
　End If
End Sub

何とか練習しつつ
ここにきてデータ型が逆に混乱してきましたわ
バリアントでごまかそうかな
おやすみなさい