Private Function stringCount(strA As String, strB As String) As Integer stringCount = UBound(Split(strA, strB)) End Function 'エラー処理が必要
Private Function stringCount(strA As String, strB As String) As Integer stringCount = UBound(Split(strA, strB)) End Function 'エラー処理が必要