Amenaza = Int((7 * Rnd) + 1) ' Numeros entre 1 y 7
select case Amenaza
  case 1
        text1.text = "Mal parido.. bla bla bla"
  case 2
       text1.text = "más bla bla bla...

  ....

end select

msgbox app.path & "\" & app.exename

File Copy ArchOrigen, ArchDestino   

   dim f as long
   f = FreeFile ' Obtienes un canal libre
   Open "C:\tuarchivo.txt" For Binary Access Write As #f 'Abres el archivo
   Put #f, , "aqui pones el texto que quieres guardar"
   Close #f ' Cierras archivo

     dim x as string
     dim f as long
     f = FreeFile
     Open "C:\tuarchivo.txt" For Binary Access Read As #f
     x = Space(LOF(f))
     Get #f, , x
     Close #f

Function PathTo(strFile As String) As String
    Dim x As Integer
    Dim strDirs As String
    Dim strDir As String
    Dim strEntry As String
    'inicia la búsqueda en c:\
    strDirs = "c:\" & vbNullChar
    Do While Len(strDirs)
        x = InStr(strDirs, vbNullChar)
        strDir = Left$(strDirs, x - 1)
        strDirs = Mid$(strDirs, x + 1)
        'Comprueba si existe el archivo
        If Len(Dir$(strDir & strFile)) Then
            PathTo = strDir & Dir$(strDir & strFile)
            Exit Function
        End If
        'Obtiene una carpeta o archivo contenido es strdir
        strEntry = Dir$(strDir & "*.*", vbDirectory)
        Do While Len(strEntry)
            'si es una carpeta la asigna a strDirs para búscar dentro de ella
            On Local Error Resume Next
            If (GetAttr(strDir & strEntry) And vbDirectory) Then
                If strEntry <> "." And strEntry <> ".." Then
                    strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
                End If
            End If
            If Err Then Exit Do
            On Local Error GoTo 0
            strEntry = Dir$
        Loop
    Loop
    PathTo = ""
End Function