Function F1() As Integer

i= Application.Sum(Range("B5:B10"))
i = WorksheetFunction.Sum(Range("B5:B10"))
i= Excel.Application.Sum(Range("B5:B10"))
i= Excel.WorksheetFunction.Sum(Range("B5:B10"))
i= Application.WorksheetFunction.Sum(Range("B5:B10"))
F1 = i
End Function

Function F(Индекс_Крестика As Integer)
F=Индекс_Крестика
End Function

public void MyFunction(int a, int b ){ 
c = a*b;  //это имеет смысл, если переменная public static...
}
//И затем вызывать её!
MyFunction(1,2)

Public Function MyFunction(a As Integer, b As Integer)
c=a*b   'это имеет смысл, если переменная public
End Function
Public Sub MySub()
MyFunction(1,2)      'здесь строка краснеет(даёт ошибку)
End Sub

 A(1)=1011010111111
 A(2)= 0101010101011
 A(3)= 0101011011010
 A(4)= 0010101010101
 A(5)= 0101010111011

Public MyArray() As String
Public Function CopyToArray(FileName As Integer) As String 'так можно копировать каждую строку .txt в массив
 Dim Name As String
 Name = CStr(FileName) + ".txt"
 Open ThisWorkbook.Path + "\" + Name For Input As #1
 i = 1
 While EOF(1) <> True
 ReDim Preserve MyArray(1 To i)
  Line Input #1, MyArray(i) ' Выделить 1-ю строку при 1-ом вызове команды Line Input
 ' и копировать строку в MyArray()
  i = i + 1
  Wend
 exit1: Close #1
End Function

Public Sub Test()
CopyToArray (1)
u = UBound(MyArray)
[a2]= MyArray(u) 'Вывести последнюю строку
End Sub

Public lst() As Variant
Public Function CopyToArray() As Variant
Dim AWind As Window
Dim APane As Pane
Dim Pages As Pages
Dim Page As Page
Dim Rect As Rectangle
Dim LineCount As Long
'Dim lst() As Variant
Dim Line As Line

 Set AWind = Application.ActiveWindow
 Set APane = AWind.ActivePane
 Set Pages = APane.Pages
'---------------------------------------------------------------------
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 LineCount = LineCount + Rect.Lines.Count
 Next Page
 LineCount = LineCount - 1
'---------------------------------------------------------------------
 ReDim Preserve lst(0 To LineCount)
 
'---------------------------------------------------------------------
 i = -1
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 For Each Line In Rect.Lines
 i = i + 1
 lst(i) = Line.Range.Text
 Next Line
 Next Page
'---------------------------------------------------------------------

 'CopyToArray = lst

End Function

Public Sub Macros1()
CopyToArray 'копировать все строки в массив lst, внимание индексация начинается с 0
MsgBox (lst(2)) 'вывести на экран 3-ю строку
End Sub

[a1].Font.Name="Arial Black"

function F(X)
Y=X*1000
return Y
end function

P=F(5) ' P: 5000 (P=5000)

Public Sub Pro1()
If [d1] = "ЛОЖЬ" Then
[e1] = "ОК"
End If
'[e1] = [d1]
End Sub

Public Sub clearfile2()
Set A01 = Workbooks.Open("D:\Do not Remove\file2.xlsm")
A01.Sheets(1).Cells(1, 1).Value = 555 '
Call Module1.Clear
A01.Close True
End Sub