Attribute VB_Name = "testsub3"
Sub テスト()
    Dim str As String

    str = "こんにちは"
    Call setCellValue(str, 2)

End Sub

Sub setCellValue(ByVal str As String, ByVal count As Integer)
    Dim dispStr As String
    Dim i As Integer
    
    For i = 1 To count
        dispStr = dispStr & str
    Next i
    
    Range("A1").Value = dispStr

End Sub